home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / MODEMPRO / CA29-3.ZIP;1 / LISTER.CMD < prev    next >
Encoding:
Text File  |  1992-01-23  |  7.7 KB  |  306 lines
  1. SET TTHRU OFF                ; Make 1st to allow typeahead
  2. ; ----- List a file, with paging
  3. ;
  4. ;    This script lists a file to the screen, allowing paging back and
  5. ;    forth with PgUp, PgDn.    EOF may be searched, and the EOF search
  6. ;    may be interrupted (by any keypress).
  7. ;
  8. ;    The script's FSAVE stack is limited to 20 positions - so PgUp only
  9. ;    goes back through the last 20 pages viewed.
  10. ; ------------------------------------------------------------------------
  11. ;    This script may be FCALLED (S0 passes the file name)
  12. ; ------------------------------------------------------------------------
  13. ;    R.McG, commenced 9/88
  14. ;           Version 2 to use SCREEN command commenced 2/90
  15. ; ----- Usages -----------------
  16. ;    S0 ------> File name being displayed
  17. ;    S2 ------> Text being searched (if Flag(1) set)
  18. ;    N0 ------> Display size in lines
  19. ;    N1 ------> Display current row #
  20. ;    N2 ------> # non-blank lines on page
  21. ;    N3 ------> Current page #
  22. ;    N4 ------> Read rtn length
  23. ;    N5 ------> Screen attribute
  24. ;    FLAG(0) -> If true, searching EOF
  25. ;    FLAG(1) -> If true, searching for text in S2
  26. ; ------------------------------
  27. ;    Initialization
  28. ;
  29. ;* TRACE ON
  30.    LEGEND "Lister ver 2.0"
  31.    SSIZE N0            ; # lines
  32.    SAVE 0,0 N0,79        ; Save current screen
  33.    CLEAR
  34.    N5 = "_TEXT"            ; Set text attribute (numeric result)
  35. ;
  36. ;    If file name not passed, query for one.
  37. ;
  38.    IF NOT NULL S0 GOTO Testfile
  39.    S1 = "File to be displayed?"
  40.    GOSUB Ask_File        ; Ask for an output file
  41.    IF NOT SUCCESS GOTO EXIT    ; If ESC'd then stop
  42.    UPPER S0
  43. ;
  44. ;    Test for file name presence
  45. ;
  46. Testfile:
  47.    FOPENI S0 text
  48.    IF NOT SUCCESS
  49.       S0 = S0& " can't be opened"
  50.       GOSUB Error
  51.       GOTO EXIT
  52.       ENDIF
  53. ;
  54. ;    Set-up for display
  55. ;
  56.    N0 = N0-2            ; # lines display
  57.    N3 = 0            ; Set page #
  58.  
  59.    LEGEND S0&": Enter PgUp, PgDn, Home, End, Esc: "
  60.    ON ESCAPE GOSUB Exit
  61.    SET FLAG(0) OFF        ; EOF search
  62.    SET FLAG(1) OFF        ; Text search
  63.    GOTO Page
  64. ;
  65. ;    Terminate script
  66. ;
  67. Exit:
  68.    RESTORE            ; Restore previous screen
  69.    IF FCALLED FRET        ; If called by another
  70.    EXIT                ; else stop
  71. ;
  72. ;    Initialize for a page
  73. ;
  74. Page:
  75.    CLEAR
  76.    N1 = 0            ; Current disp line
  77.    N2 = 0            ; # non-blank lines
  78.    N3 = N3+1            ; Increment page #
  79. ;
  80. ;    Update the legend accordingly
  81. ;
  82.    IF NOT FLAG(0)        ; If not searching EOF
  83.       IF NOT FLAG(1)        ; If not searchin for text
  84.      LEGEND S0&": Enter PgUp, PgDn, Home, End, Esc, F)ind;    Page "*N3
  85.       ELSE
  86.      LEGEND S0&": Searching for text; any keypress to stop;     Page "*N3
  87.      ENDIF
  88.    ELSE
  89.       LEGEND S0&": Searching for EOF; any keypress to stop;  Page "*N3
  90.       ENDIF
  91. ;
  92. ;    Save the position of the start of this page
  93. ;
  94.    FSAVEI
  95.    IF NOT SUCCESS
  96.       FSAVEI SHIFT        ; Save last 20 pos'ns
  97.       FSAVEI
  98.       ENDIF
  99. ;
  100. ;    Display a page's worth
  101. ;
  102. Loop:
  103.      FOR N1 = 0,N0,1
  104.        READ S1 80 N4        ; N4 = # chars read
  105.        IF EOF GOTO EndFile    ; Go no farther
  106.  
  107.        IF NOT NULL S1        ; Skip empty lines
  108.       IF FIND S1 "^L"    ; Top of form
  109.          IF NOT ZERO N2    ; Current page is empty
  110.         GOTO Wait    ; Go no farther
  111.          ELSE
  112.         GOTO Loop    ; Don't display empty pages
  113.         ENDIF
  114.          ENDIF
  115.  
  116.       N2 = N2+1        ; Count non-blank lines
  117.  
  118.       IF NOT FLAG(0)    ; If not searching EOF
  119.          IF NOT FLAG(1)    ; If not searching text
  120.         PRESERVE S1    ; Preserve c/rs etc
  121.         ATSAY N1,0 N5 S1; Display what was read
  122.          ELSE        ; Searching text
  123.         IF FIND S1 S2 GOTO Endfile ; Stop on match; Look for S2 in S1
  124.         IF HITKEY GOTO Hitkey       ; And searching EOF
  125.         ENDIF
  126.       ELSE
  127.          IF HITKEY GOTO Hitkey
  128.          ENDIF
  129.       ENDIF            ; End not null line
  130.        ENDFOR
  131.    GOTO Wait
  132. ;
  133. ;    Keypress during loop
  134. ;
  135. Hitkey:
  136.    KFLUSH            ; Flush the keypress
  137. ;
  138. ;    End of file - reposition to last page, and then wait
  139. ;
  140. EndFile:
  141.    FRESTI            ; Restore position to top of current page
  142.    IF NOT FLAG(0) AND NOT FLAG(1) GOTO Wait ; If not searching for EOF or text
  143. ;
  144. ;    We were searching - display current page
  145. ;
  146.    SET FLAG(0) OFF        ; Done w/ eof search
  147.    SET FLAG(1) OFF        ; Done w/ eof search
  148.    N3 = N3-1            ; Reset Page # for redisplay
  149.    GOTO Page            ; Display last page
  150. ;
  151. ;    End of a page - wait for a keypress
  152. ;
  153. Wait:
  154.    IF FLAG(0) GOTO Page        ; EOF search - no wait
  155.    IF FLAG(1) GOTO Page        ; Text search - no wait
  156. ;
  157. ;    Read the key and interpret
  158. ;
  159.    KEYGET S1
  160.    SWITCH S1
  161.      CASE "4900"        ; Pgup
  162.        GOTO PgUp
  163.        ENDCASE
  164.      CASE "5100"        ; PgDn
  165.        GOTO PgDn
  166.        ENDCASE
  167.      CASE "4700"        ; Home
  168.        GOTO Home
  169.        ENDCASE
  170.      CASE "4F00"        ; End
  171.        GOTO End
  172.        ENDCASE
  173.      CASE "0D"            ; C/r
  174.        GOTO PgDn
  175.        ENDCASE
  176.      CASE "F"            ; Find
  177.        GOTO Find
  178.        ENDCASE
  179.      ENDSWITCH
  180.    SOUND 100,100
  181.    GOTO Wait
  182. ;
  183. ;    Page up (go backwards)
  184. ;
  185. PgUp:
  186.       FRESTOREI            ; Backup current pg
  187.       N3 = N3-1            ; Reset Page # for redisplay
  188.       FRESTOREI            ; Backup one more
  189.       IF NOT SUCCESS
  190.      SOUND 200,100
  191.      GOTO Page
  192.      ENDIF
  193.       N3 = N3-1            ; Reset Page # for redisplay
  194.       GOTO Page
  195. ;
  196. ;    Page down (go forwards)
  197. ;
  198. PgDn:
  199.     GOTO Page
  200. ;
  201. ;    Home (rewind the file)
  202. ;
  203. Home:
  204.     N3 = 0            ; Reset Page # for redisplay
  205.     REWIND
  206.     GOTO Page
  207. ;
  208. ;    End (Search EOF)
  209. ;
  210. End:
  211.    SET FLAG(0) ON        ; Flag searching
  212.    GOTO Page
  213. ;
  214. ;    SUBROUTINE: Find a line
  215. ;    This subroutine modifies S2 and S19
  216. ;
  217. Find:
  218.    S19 = "_ONESCAPE"        ; Save label previously set
  219.    ON ESCAPE GOSUB Find_Esc    ; Escape out of pop-up
  220.    SAVE     20,10 23,70
  221.    BOX     20,10 23,70 (default)
  222.    ATSAY 20,12 (default) " Find subcommand "
  223.    ATSAY 21,12 (default) "Enter the search string (case not signifigant):"
  224. ;
  225. ;    Read a response
  226. ;
  227.    ATGET 22,12 (default) 56 S2    ; Box is 60 wide
  228.    IF NULL S2 GOTO Find_Exit    ; Skip if nothing entered
  229. ;
  230. ;    Set-up for text search
  231. ;
  232.    SET FLAG (1) ON        ; Set searching flag
  233.    ON ESCAPE GOSUB S19        ; Reset original ON ESCAPE label
  234.    RESTORE            ; Clear pop-up
  235.    GOTO Page            ; Start search from this page
  236. ;
  237. ;    Null search string
  238. ;
  239. Find_Exit:
  240.    ON ESCAPE GOSUB S19        ; Reset original ON ESCAPE label
  241.    RESTORE            ; Clear pop-up
  242.    GOTO Wait            ; Wait for another key
  243. ;
  244. ;    Subroutine: Escape entered, or null search string
  245. ;    .. This subroutine is entered upon ESCAPE at the ATGET instruction
  246. ;    .. above.  Upon return from this subroutine, the instruction after
  247. ;    .. ATGET will be executed.  The string S2 is set to a null value to
  248. ;    .. imitate no entry, and therefore abort of the pop-up.
  249. ;
  250. Find_Esc:
  251.    S2 = ""            ; Make a null string
  252.    RETURN            ; Return to instruction after ATGET
  253. ;
  254. ; ----- Subroutine: Ask for a script file name
  255. ;    S1 passes the prompt used
  256. ;    SUCCESS returns fact script file successfully opened
  257. ;    S0 returns the fname
  258. ;
  259. Ask_File:
  260.    WOPEN 10 10 13 70 (default) ASK_ESC
  261.    ATSAY 10 12 (default) " Lister Fname "
  262.    ATSAY 11 12 (default) S1(0:56)
  263.    ATSAY 13 30 (default) " Press ESC to cancel "
  264.  
  265.    ATGET 12 12 (default) 54 S0; Read new fname
  266.    WCLOSE
  267.    ;
  268.    ;       Attempt to execute the entry
  269.    ;
  270.    LJ S0            ; Left justify
  271.    S0 = S0 &""            ; Trim spaces
  272.    UPPER S0            ; Make pretty
  273.    IF NOT NULL S0        ; If nothing entered
  274.       SET SUCCESS ON
  275.    ELSE
  276.       SET SUCCESS OFF
  277.       ENDIF
  278.    RETURN            ; And done
  279. ;
  280. ; ----- Escape during a subwindow
  281. ;    .. S0 is returned null
  282. ;
  283. Ask_Esc:
  284.    S0 = ""            ; Make a null return
  285.    RETURN
  286. ;
  287. ; ----- Subroutine: Fatal error.  Open a window, and display a message
  288. ;    S0 passes the error message(s)
  289. ;
  290. Error:
  291.    WOPEN 10,10,12,70 (default) Err_Esc
  292.    ATSAY 10,12 (default) " Lister Error "
  293.    ATSAY 11,12 (default) S0(0:55); Max msg width 55 chars
  294.    ATSAY 12,26 (default) " Press any key to continue "
  295.    ;
  296.    ;    Wait a keypress
  297.    ;
  298.    KEYGET S0               ; Wait for any key
  299.    WCLOSE
  300.    RETURN
  301.    ;
  302.    ;    Escape during this screen
  303.    ;
  304. Err_Esc:
  305.    RETURN
  306.